unit nscoordanadas;

interface

USES CLASSES;

TYPE

  TPuntoCoordenada = CLASS  (TCollectionItem )
  private
    Flongitud: double;
    Flatitud: double;
    procedure Setlatitud(const Value: double);
    procedure Setlongitud(const Value: double);
    PUBLIC
      constructor create; overload;
      property latitud: double read Flatitud write Setlatitud;
      property  longitud : double read Flongitud write Setlongitud;
  END;

  TListPuntoCoordenada = class(TCollection ) ;

implementation

{ TPuntoCoordenada }

constructor TPuntoCoordenada.create;
begin

  latitud := 0;
  longitud := 0;
end;

procedure TPuntoCoordenada.Setlatitud(const Value: double);
begin
  Flatitud := Value;
end;

procedure TPuntoCoordenada.Setlongitud(const Value: double);
begin
  Flongitud := Value;
end;

end.
